home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0361 / attabout.frm (.txt) < prev    next >
Visual Basic Form  |  1997-03-31  |  6KB  |  92 lines
  1. Form3
  2. About...
  3. wwwwwwwwwwwwww
  4. Xgwwwwwwwww
  5. Form3%
  6. Text1
  7. Text1
  8. MS Sans Serif
  9. Command1
  10. Label1
  11. %User: "All the Time", Password: "ATT"
  12. MS Sans Serif
  13. Label1
  14. CalamityVille BBS: 212-226-8564
  15. MS Sans Serif
  16. Label1
  17. !available free on Brad Friedman's
  18. MS Sans Serif
  19. Label1
  20. -The current version of All the Time is always
  21. MS Sans Serif
  22. Label1
  23. Pardon us, but...
  24. MS Sans Serif
  25. Image2
  26. Label1
  27. 70741,422 or neslon@panix.com
  28. MS Sans Serif
  29. Label1
  30. Wilson Smith and Carole Rogers
  31. MS Sans Serif
  32. Label1
  33. Questions, comments to:
  34. MS Sans Serif
  35. Label1
  36.     Enjoy it!
  37. MS Sans Serif
  38. Label1
  39. No warranties, no liabilities
  40. MS Sans Serif
  41. Label1
  42. Free, public domain, etc.
  43. MS Sans Serif
  44. Label1
  45. All the Time v3.03
  46. Command1_Click
  47. Form3
  48. Form_Click
  49. @    Form_Load6
  50. AttAbout
  51. AttSettings
  52. WidthL
  53. Settings
  54. Height
  55. Visible
  56. Screen(
  57. forms>
  58. count
  59. gSettingsVisible
  60. gNumColors
  61. Text1
  62. cCutoffColors
  63. gPixelDepth
  64. cCutoffDepth
  65. Text1_Change
  66. Label1
  67. Caption
  68. 11/16  1.0 - 1.01 -> non-tiling.  consistent hourglassingw
  69. 11/17 1.01 - 1.02 -> stopped doing a CLS for tiled preview
  70.  (bug introduced in 1.01)d
  71. 11/17 1.02 - 1.03 -> stopped doing a CLS at all.  PatBlt for non-tiled background
  72. 11/24 1.1
  73. lots of versions, one to CIS, one to JB and LB, 
  74.  one to SJH and MS
  75. 1/18  1.15
  76.  -> sent 1.11d to Brad Friedman 
  77.  -> went through C's list of things, mostly minor.
  78. Command1_Click
  79. Form_Load
  80. 10/01/1993
  81. Starting 10/1/93, new versions of ATT will be
  82. If gNumColors > cCutoffColors Then
  83.    Text1.Text = "Windows reports that your display supports " + Format$(gNumColors) + " colors. We've been looking for verification from anyone that our program actually works on a display like that. Would you do us the favor of dropping us a note alerting us to the fact that our program is not, in fact, crippled horribly by an inability to display " + Format$(gNumColors) + " colors? All you have to do is mention that you saw this message. We'd be very, very grateful! Additional info about your system would also be appreciated." + Chr$(13) + Chr$(10) + "Thanks, " + Chr$(13) + Chr$(10) + "Wilson & Carole"
  84.    Form3.Height = Text1.Top + Text1.Height + 810
  85.    Label1(5).Visible = True 
  86.    If gPixelDepth > cCutoffDepth Thene
  87.    Text1.Text = "Windows reports that your display supports " + Format$(gPixelDepth) + "-bit color. We've been looking for verification from anyone that our program actually works on a display like that. Would you do us the favor of dropping us a note alerting us to the fact that our program is not, in fact, crippled horribly by an inability to display " + Format$(gPixelDepth) + "-bit color? All you have to do is mention that you saw this message. We'd be very, very grateful! Additional info about your system would also be appreciated." + Chr$(13) + Chr$(10) + "Thanks, " + Chr$(13) + Chr$(10) + "Wilson & Carole"
  88.    Label1(5).Visible = Truep
  89.    Form3.Height = Text1.Top + Text1.Height + 810
  90.    End IfH
  91. End If
  92.